home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / arvis1 / mousemod.bas < prev    next >
Encoding:
BASIC Source File  |  1997-08-09  |  1.2 KB  |  38 lines
  1. Attribute VB_Name = "MouseMod"
  2. '»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»'
  3. ' This Sub Hold Mouse Functions, Api's and Variables '
  4. '____________________________________________________'
  5. Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  6. Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
  7. Public Type POINTAPI
  8.     X As Long
  9.     Y As Long
  10. End Type
  11. Global ExitMouse As Boolean
  12. Global ExitMainMouse As Boolean
  13. Global ExitInputWindow As Boolean
  14. Global curXY As POINTAPI
  15. Global resp
  16. Public Function Get_Mouse_X() As Long
  17.     resp = GetCursorPos(curXY)
  18.     Get_Mouse_X = curXY.X
  19. End Function
  20. Public Function Get_Mouse_Y() As Long
  21.     resp = GetCursorPos(curXY)
  22.     Get_Mouse_Y = curXY.Y
  23. End Function
  24. Public Sub Set_Mouse_X(X As Long)
  25.     resp = GetCursorPos(curXY)
  26.     resp = SetCursorPos(X, curXY.Y)
  27. End Sub
  28. Public Sub Set_Mouse_Y(Y As Long)
  29.     resp = GetCursorPos(curXY)
  30.     resp = SetCursorPos(curXY.X, Y)
  31. End Sub
  32. Public Sub Set_Mouse_X_Y(X As Long, Y As Long)
  33.     resp = GetCursorPos(curXY)
  34.     resp = SetCursorPos(curXY.X, Y)
  35.     resp = GetCursorPos(curXY)
  36.     resp = SetCursorPos(X, curXY.Y)
  37. End Sub
  38.